100 CALL CLEAR
110 TONO=110
120 FOR Q=1 TO 5
130 CALL SOUND(-300,TONO,1)
140 TONO=TONO+110
150 NEXT Q
160 PRINT "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"
170 PRINT "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"
180 PRINT "OO                        OO"
190 PRINT "OO                        OO"
200 PRINT "OO      FRANCOMPUTER      OO"
210 PRINT "OO                        OO"
220 PRINT "OO      TEXAS   CLUB      OO"
230 PRINT "OO                        OO"
240 PRINT "OO                        OO"
250 PRINT "OO                        OO"
260 PRINT "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"
270 PRINT "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"
280 FOR WAIT=0 TO 350
290 NEXT WAIT
300 CALL CLEAR
310 TONO=110
320 FOR Q=1 TO 10
330 CALL SOUND(-500,TONO,1)
340 TONO=TONO+110
350 NEXT Q
360 CALL CLEAR
370 PRINT : : : : : : : : : : :"         PRESENTA           ": : : : : : : : : :
380 FOR WAIT=0 TO 300
390 NEXT WAIT
400 CALL SCREEN(10)
410 CALL CLEAR
420 PRINT "----------------------------"
430 PRINT "986564343356545872193647587673425163748564835237745567473543433838876654345443455555"
440 PRINT "986654565432187096543234543287765875454343323245885756474746353546575868676656663766"
450 PRINT "76                        34"
460 PRINT "87                        43"
470 PRINT "87                        76"
480 PRINT "67       LA  TOMBOLA      87"
490 PRINT "45                        48"
500 PRINT "89                        61"
510 PRINT "78                        87"
520 PRINT "76766686FRANCOMPUTER4325276878465647343536353637746456647488363637736563526725353767"
530 PRINT "766565446789987653235680097679000876563356789900987766565667777655454434345555556677"
540 PRINT "----------------------------"
550 FOR WAIT=0 TO 400
560 NEXT WAIT
570 REM  *******************      
580 REM  *  T O M B O L A  *  
590 REM  * * * * * * * * * *  
600 REM  ## FRANCOMPUTER  #######################################################################################
610 REM  ################################################     
620 REM  *******************  
630 CALL CHAR(128,"")
640 CALL CHAR(136,"1881188118811881")
650 OPTION BASE 1
660 DIM A(90)
670 CALL CLEAR
680 CALL SCREEN(6)
690 FOR J=2 TO 11
700 CALL COLOR(J,16,2)
710 NEXT J
720 CALL COLOR(1,4,4)
730 CALL COLOR(13,6,6)
740 CALL COLOR(14,9,15)
750 CALL VCHAR(1,1,128,48)
760 CALL VCHAR(1,32,128,24)
770 CALL HCHAR(23,3,136,29)
780 CALL HCHAR(24,3,136,29)
790 CALL HCHAR(20,5,136,27)
800 CALL HCHAR(1,3,136,29)
810 CALL HCHAR(22,3,136,29)
820 CALL HCHAR(2,3,136,2)
830 FOR J=5 TO 31 STEP 3
840 CALL VCHAR(1,J,136,22)
850 NEXT J
860 FOR J=1 TO 23 STEP 2
870 CALL HCHAR(J,3,136,29)
880 NEXT J
890 RANDOMIZE
900 FOR J=1 TO 90
910 A(J)=J
920 NEXT J
930 FOR N=90 TO 1 STEP-1
940 NU=INT(RND*N+1)
950 T=A(NU)
960 A(NU)=A(N)
970 RIGA=24
980 COLO=16
990 GOSUB 1130
1000 RIGA=(INT(T/10)+1)*2
1010 COLO=3+((T/10)-INT(T/10))*30
1020 GOSUB 1130
1030 CALL SOUND(100,25*T+110,0)
1040 CALL KEY(0,KEY,STA)
1050 IF STA=0 THEN 1040
1060 NEXT N
1070 T$="FINITA PARTITA-PREMERE REDO."
1080 RIGA=23
1090 COLO=3
1100 GOSUB 1160
1110 CALL KEY(5,KEY,STA)
1120 IF STA<>1 THEN 1110 ELSE 670
1130 T$=STR$(T)
1140 IF LEN(T$)=2 THEN 1160
1150 T$="0"&T$
1160 FOR LI=1 TO LEN(T$)
1170 CALL HCHAR(RIGA,COLO,ASC(SEG$(T$,LI,1)))
1180 COLO=COLO+1
1190 NEXT LI
1200 RETURN
1210 END
